
		Imports Acceso_a_Datos.Datos
		Namespace BO
		Partial Public Class tDiscapacidades



# Region "tTipo_Discapacidades"

		private mtTipo_Discapacidades As New tTipo_Discapacidades

		Public Property tTipo_Discapacidades As tTipo_Discapacidades
        Get
                mtTipo_Discapacidades = mtTipo_Discapacidades.TraerFiltradoListOf("IdTipoDiscapacidad", Me.IdTipoDiscapacidad).Item(0)
        Return mtTipo_Discapacidades
        End Get
        Set
             If ((mtTipo_Discapacidades Is Nothing) Or (Me.tTipo_Discapacidades.Equals(value) = False)) Then
                If Not (Me.tTipo_Discapacidades Is Nothing)
	               Dim oldtTipo_Discapacidades As tTipo_Discapacidades = Me.tTipo_Discapacidades
                   Me.mtTipo_Discapacidades = Nothing
                   oldtTipo_Discapacidades.RemoveListatDiscapacidades(Me)
             	End If
            	If Not (value Is Nothing) Then
                   Me.mtTipo_Discapacidades = value
                   Me.tTipo_Discapacidades.AddListatDiscapacidades(Me)
            	End If
             End If
        End Set
       End Property

# End Region
# Region "tDiscapacidad_x_Familiar"
	private mlistatDiscapacidad_x_Familiar As New List (Of tDiscapacidad_x_Familiar)
Public Property ListatDiscapacidad_x_Familiar As System.Collections.Generic.List(Of tDiscapacidad_x_Familiar)
Get
dim mtDiscapacidad_x_Familiar As New tDiscapacidad_x_Familiar
mlistatDiscapacidad_x_Familiar =mtDiscapacidad_x_Familiar.TraerFiltradoListOf("IdDiscapacidad",Me.IdDiscapacidad)
Return mlistatDiscapacidad_x_Familiar
End Get
Set
RemoveAllListatDiscapacidad_x_Familiar()
If Not (Value Is Nothing) Then
Dim otDiscapacidad_x_Familiar As tDiscapacidad_x_Familiar
	For Each otDiscapacidad_x_Familiar in Value
		AddListatDiscapacidad_x_Familiar(otDiscapacidad_x_Familiar)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatDiscapacidad_x_Familiar(newtDiscapacidad_x_Familiar As tDiscapacidad_x_Familiar)
	If (mlistatDiscapacidad_x_Familiar Is Nothing) Then
		mlistatDiscapacidad_x_Familiar = new System.Collections.Generic.List(Of tDiscapacidad_x_Familiar)
	End If
	If Not mlistatDiscapacidad_x_Familiar.Contains(newtDiscapacidad_x_Familiar) Then
		mlistatDiscapacidad_x_Familiar.Add(newtDiscapacidad_x_Familiar)
		newtDiscapacidad_x_Familiar.tDiscapacidades = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatDiscapacidad_x_Familiar(oldtDiscapacidad_x_Familiar As tDiscapacidad_x_Familiar)
	If (mlistatDiscapacidad_x_Familiar.Contains(oldtDiscapacidad_x_Familiar)) Then
		mlistatDiscapacidad_x_Familiar.Remove(oldtDiscapacidad_x_Familiar)
		oldtDiscapacidad_x_Familiar.tDiscapacidades = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatDiscapacidad_x_Familiar()
	If Not (mlistatDiscapacidad_x_Familiar Is Nothing)
		Dim tmp_listatDiscapacidad_x_Familiar As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtDiscapacidad_x_Familiar As tDiscapacidad_x_Familiar
		For Each oldtDiscapacidad_x_Familiar in mlistatDiscapacidad_x_Familiar
			tmp_listatDiscapacidad_x_Familiar.Add(oldtDiscapacidad_x_Familiar)
		Next
	mlistatDiscapacidad_x_Familiar.Clear()
	For Each oldtDiscapacidad_x_Familiar in tmp_listatDiscapacidad_x_Familiar
		oldtDiscapacidad_x_Familiar = Nothing
	Next
	tmp_listatDiscapacidad_x_Familiar.Clear()
	End If
End Sub

# End Region
# Region "tDiscapacidad_x_Solicitud"
	private mlistatDiscapacidad_x_Solicitud As New List (Of tDiscapacidad_x_Solicitud)
Public Property ListatDiscapacidad_x_Solicitud As System.Collections.Generic.List(Of tDiscapacidad_x_Solicitud)
Get
dim mtDiscapacidad_x_Solicitud As New tDiscapacidad_x_Solicitud
mlistatDiscapacidad_x_Solicitud =mtDiscapacidad_x_Solicitud.TraerFiltradoListOf("IdDiscapacidad",Me.IdDiscapacidad)
Return mlistatDiscapacidad_x_Solicitud
End Get
Set
RemoveAllListatDiscapacidad_x_Solicitud()
If Not (Value Is Nothing) Then
Dim otDiscapacidad_x_Solicitud As tDiscapacidad_x_Solicitud
	For Each otDiscapacidad_x_Solicitud in Value
		AddListatDiscapacidad_x_Solicitud(otDiscapacidad_x_Solicitud)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatDiscapacidad_x_Solicitud(newtDiscapacidad_x_Solicitud As tDiscapacidad_x_Solicitud)
	If (mlistatDiscapacidad_x_Solicitud Is Nothing) Then
		mlistatDiscapacidad_x_Solicitud = new System.Collections.Generic.List(Of tDiscapacidad_x_Solicitud)
	End If
	If Not mlistatDiscapacidad_x_Solicitud.Contains(newtDiscapacidad_x_Solicitud) Then
		mlistatDiscapacidad_x_Solicitud.Add(newtDiscapacidad_x_Solicitud)
		newtDiscapacidad_x_Solicitud.tDiscapacidades = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatDiscapacidad_x_Solicitud(oldtDiscapacidad_x_Solicitud As tDiscapacidad_x_Solicitud)
	If (mlistatDiscapacidad_x_Solicitud.Contains(oldtDiscapacidad_x_Solicitud)) Then
		mlistatDiscapacidad_x_Solicitud.Remove(oldtDiscapacidad_x_Solicitud)
		oldtDiscapacidad_x_Solicitud.tDiscapacidades = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatDiscapacidad_x_Solicitud()
	If Not (mlistatDiscapacidad_x_Solicitud Is Nothing)
		Dim tmp_listatDiscapacidad_x_Solicitud As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtDiscapacidad_x_Solicitud As tDiscapacidad_x_Solicitud
		For Each oldtDiscapacidad_x_Solicitud in mlistatDiscapacidad_x_Solicitud
			tmp_listatDiscapacidad_x_Solicitud.Add(oldtDiscapacidad_x_Solicitud)
		Next
	mlistatDiscapacidad_x_Solicitud.Clear()
	For Each oldtDiscapacidad_x_Solicitud in tmp_listatDiscapacidad_x_Solicitud
		oldtDiscapacidad_x_Solicitud = Nothing
	Next
	tmp_listatDiscapacidad_x_Solicitud.Clear()
	End If
End Sub

# End Region
# Region "tDiscapacidades_x_Persona"
	private mlistatDiscapacidades_x_Persona As New List (Of tDiscapacidades_x_Persona)
Public Property ListatDiscapacidades_x_Persona As System.Collections.Generic.List(Of tDiscapacidades_x_Persona)
Get
dim mtDiscapacidades_x_Persona As New tDiscapacidades_x_Persona
mlistatDiscapacidades_x_Persona =mtDiscapacidades_x_Persona.TraerFiltradoListOf("IdDiscapacidad",Me.IdDiscapacidad)
Return mlistatDiscapacidades_x_Persona
End Get
Set
RemoveAllListatDiscapacidades_x_Persona()
If Not (Value Is Nothing) Then
Dim otDiscapacidades_x_Persona As tDiscapacidades_x_Persona
	For Each otDiscapacidades_x_Persona in Value
		AddListatDiscapacidades_x_Persona(otDiscapacidades_x_Persona)
	Next
End If
End Set
End Property


		
		
	   Public Sub AddListatDiscapacidades_x_Persona(newtDiscapacidades_x_Persona As tDiscapacidades_x_Persona)
	If (mlistatDiscapacidades_x_Persona Is Nothing) Then
		mlistatDiscapacidades_x_Persona = new System.Collections.Generic.List(Of tDiscapacidades_x_Persona)
	End If
	If Not mlistatDiscapacidades_x_Persona.Contains(newtDiscapacidades_x_Persona) Then
		mlistatDiscapacidades_x_Persona.Add(newtDiscapacidades_x_Persona)
		newtDiscapacidades_x_Persona.tDiscapacidades = Me
	End If
End Sub

	   
	   
	   
	   Public Sub RemoveListatDiscapacidades_x_Persona(oldtDiscapacidades_x_Persona As tDiscapacidades_x_Persona)
	If (mlistatDiscapacidades_x_Persona.Contains(oldtDiscapacidades_x_Persona)) Then
		mlistatDiscapacidades_x_Persona.Remove(oldtDiscapacidades_x_Persona)
		oldtDiscapacidades_x_Persona.tDiscapacidades = Nothing
	End If
End Sub
	
			
			Public Sub RemoveAllListatDiscapacidades_x_Persona()
	If Not (mlistatDiscapacidades_x_Persona Is Nothing)
		Dim tmp_listatDiscapacidades_x_Persona As System.Collections.ArrayList = new System.Collections.ArrayList()
		Dim oldtDiscapacidades_x_Persona As tDiscapacidades_x_Persona
		For Each oldtDiscapacidades_x_Persona in mlistatDiscapacidades_x_Persona
			tmp_listatDiscapacidades_x_Persona.Add(oldtDiscapacidades_x_Persona)
		Next
	mlistatDiscapacidades_x_Persona.Clear()
	For Each oldtDiscapacidades_x_Persona in tmp_listatDiscapacidades_x_Persona
		oldtDiscapacidades_x_Persona = Nothing
	Next
	tmp_listatDiscapacidades_x_Persona.Clear()
	End If
End Sub

# End Region


# Region "Lecturas que devuelven listas"
Public Function TraerTodosListOf() As List(Of tDiscapacidades)
            Dim dtDatos As DataTable
            Dim listatDiscapacidades As New List(Of tDiscapacidades)
            Dim param As [String]
            param = (Me.mNombreEntidad + "_SelectAll")
            dtDatos = Me.ServidorDatos.TraerDataTable(param)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtDiscapacidades As New tDiscapacidades
				mtDiscapacidades.IdDiscapacidad = CType(dr.Item("IdDiscapacidad"),Integer)
				mtDiscapacidades.Traer_objeto()
            	listatDiscapacidades.Add( mtDiscapacidades)
    		Next dr
Return listatDiscapacidades
End Function

Public Function TraerFiltradoListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tDiscapacidades)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatDiscapacidades As New List(Of tDiscapacidades)
            param = (Me.mNombreEntidad + "_Tx")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtDiscapacidades As New tDiscapacidades
				mtDiscapacidades.IdDiscapacidad = CType(dr.Item("IdDiscapacidad"),Integer)
				mtDiscapacidades.Traer_objeto()
            	listatDiscapacidades.Add( mtDiscapacidades)
    		Next dr
Return listatDiscapacidades
End Function

Public Function TraerFiltradoLikeListOf(ByVal Filtro As [String], ByVal Args As Object) As List(Of tDiscapacidades)
            Dim dtDatos As DataTable
            Dim param As [String]
            Dim listatDiscapacidades As New List(Of tDiscapacidades)
            param = (Me.mNombreEntidad + "_TxLike")
            param = (param + Filtro.ToString)
            dtDatos = Me.ServidorDatos.TraerDataTable(param, Args)
            For Each dr As DataRow In dtDatos.Rows
            Dim mtDiscapacidades As New tDiscapacidades
				mtDiscapacidades.IdDiscapacidad = CType(dr.Item("IdDiscapacidad"),Integer)
				mtDiscapacidades.Traer_objeto()
            	listatDiscapacidades.Add( mtDiscapacidades)
    		Next dr
Return listatDiscapacidades
End Function
# End Region

End Class
End Namespace
